Top 10k strings from Roman Empire (1982)(MC Lothlorien).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
4 H$(B)="0 " 4 D(W(B))=Y(B) 3 ;X$;X$;X$: 3 ;"PRESS A KEY" 2 O(N)=O(N)+1 2 I(W(B))=Z(B) 2 H(N)=H(N)- 2 A(W(B))=X(B) 2 A(N)=A(N)- 2 "0 " 1 Z(B)=Z(B)+1 1 Y(B)=Y(B)-5 1 Y(B)=Y(B)+5 1 X(B)=X(B)-L(L) 1 X(B)=X(B)+L(L) 1 WITHDRAW FROM ? (1-10)" 1 T$="000000000000000000" 1 S$="0000000000" 1 S$(N)="99" 1 S$(N))=I(N) 1 S$(N))=D(N) 1 S$(N))=A(N) 1 P(W(B))=Q(B) 1 P$="000000000 " 1 O(N)=O(N)-1 1 ME=ME+L(L) 1 J(N)=J(N)-1 1 J(N)=J(N)+1 1 I(N)=I(N)-1 1 H$(B)=G$(V) 1 GET SCORE"; 1 FINISHED YOUR LIFE ON CAPRI.": 1 EMPIRER 1 E(L)=E(L)+1 1 D(N)=D(N)-1 1 D(N)=D(N)+1 1 ;,,"GENERAL= ";H$(B);,"STATUS = ";W(B) 1 ;"YOU HAVE NO ARMY IN ";C$(N, 1 ;"WITHDRAWAL FROM: ";C$(N, 1 ;"WHICH GENERAL DO YOU WISH TO APPOINT ? (1-9 OR 0 IF NONE)" 1 ;"WHICH ARMY ARE YOU ATTACKING WITH ? (1-9 OR 0 IF NONE)" 1 ;"VICTORIES ";VI; 1 ;"TROOPS = ";X(B);,,"MORALE = ";Y(B);,,"ENERGY = ";Z(B);,,"RATING = ";6 1 ;"TROOPS ";H(N); 1 ;"TROOPS ";A(N); 1 ;"ROMAN FORCES"; 1 ;"ROMAN EMPIRE"; 1 ;"RESULTS"; 1 ;"REINFORCEMENTS CAN'T GET THROUGH": 1 ;"RATING 6"; 1 ;"RATING ";K(N); 1 ;"PRESS ANY KEY" 1 ;"PLEASE REFER TO THE WRITTEN NOTES." 1 ;"PERIODS ";PE'"VICTORIES ";VI'"DEFEATS ";DE'"CONQUESTS ";CO'"PC.CASUALTIES "; 1 ;"PERIOD ";PE; 1 ;"MORALE ";O(N); 1 ;"MORALE ";D(N); 1 ;"LDR.AB ";P(N) 1 ;"LDR.AB ";F(N) 1 ;"ENTER LEVEL REQUIRED (1,2 OR 3)" 1 ;"ENTER LEGION (1-18 OR 0 IF NO MORE)" 1 ;"ENTER LEGION (1 1 ;"ENERGY ";J(N); 1 ;"ENERGY ";I(N); 1 ;"ENEMY FORCES" 1 ;"DO YOU WISH TO REMOVE THE GENERAL ? (y/n)" 1 ;"DO YOU WISH TO REMOVE A LEGION ?(y/n)" 1 ;"DO YOU WISH TO ADD A LEGION ? (y/n)" 1 ;"DEFEATS ";DE 1 ;"COUNTRY"; 1 ;"COPYRIGHT - M.C.LOTHLORIEN","1982" 1 ;"ARMY ";B;" IS ATTACKING ";C$(N, 1 ;"ARMY ";B;" IS ALREADY COMMITTED" 1 ;"ARMY ";B;" HAS NO TROOPS" 1 ;"ARMY ";B;" HAS NO GENERAL" 1 ;"ARMY ";S$(N) 1 ;"ANOTHER GAME ? (y/n)" 1 ;"9.RESIGN 1 ;"8.FIGHT A FURTHER PERIOD"; 1 ;"7.CHECK A CAMPAIGN"; 1 ;"6.MAKE A WITHDRAWAL"; 1 ;"5.MAKE AN ATTACK"; 1 ;"4.BUILD/CHANGE AN ARMY"; 1 ;"3.CHECK GENERALS"; 1 ;"2.CHECK LEGIONS"; 1 ;"1.CHECK COUNTRIES"; 1 18 OR 0 IF NOMORE)" 1 01 AEGYPTUS;02 AS.MINOR;03 DACIA 804 GALLIA 905 GERMANIA;06 GRAECIA :07 HISPANIA;08 ILLYRIA :09 ITALIA 910 NUMIDIA :S 1 0000000000 1 /(DE+VI))+((ME)/900 1 +P(N)+D(N)))-(((( 1 )="YOURSELF" 1 )="HORATIUS" 1 )="GRACCHUS" 1 )="FLAVIUS" 1 )="ERMINIUS" 1 )="DECIUS" 1 )="CASSIUS" 1 )="BRUTUS" 1 )="ALBINUS" 1 )="10 NUMIDIA :" 1 )="09 ITALIA 9" 1 )="08 ILLYRIA :" 1 )="07 HISPANIA;" 1 )="06 GRAECIA :" 1 )="05 GERMANIA;" 1 )="04 GALLIA 9" 1 )="03 DACIA 8" 1 )="02 AS.MINOR;" 1 )="01 AEGYPTUS;" 1 );": CURRENT POSITION" 1 );" IS ALREADY CONQUERED" 1 );" (PC.)"; 1 );" ROMANS WIPED OUT" 1 );" IS CONQUERED" 1 );" A VICTORY" 1 );" A DEFEAT" 1 )*(K(N)+F(N)+O(N)))+ 1 )*((J(N)+2 1 )*((J(N)+1 1 )*((I(N)+3 1 )*((I(N)+2 1 (H(N)/(A(N)+1 1 (((Y(B)*X(B))+(L(L)*M(L)))/(X(B)+L(L))) 1 ((((Z(B)*X(B))+(L(L)*E(L)))/(X(B)+L(L)))+.5 1 (((((X(B)+L(L)))*Z(B))-(L(L)*E(L)))/(X(B))) 1 (((((X(B)+L(L)))*Y(B))-(L(L)*M(L)))/(X(B))) 1 "YOUR TROOPS HAVE BEEN ANNIHILATED - GAME OVER" 1 "YOU RESIGNED 1 "YOU HAVE LEFT ROME UNDEFENDED AND BARBARIANS HAVE SACKED THE CITY - GAME OVER" 1 "YOU HAVE BEEN OUSTED BY REBELLION IN ROME - GAME OVER" 1 "WHICH COUNTRY DO YOU WISH TO ATTACK ? (1-10 OR 0 IF NONE)" 1 "WHICH COUNTRY DO YOU WISH 1 "WHICH ARMY (1-9) DO YOU WISH TO BUILD/CHANGE ?" 1 "OPTIONS"; 1 "IN WHICH COUNTRY DO WISH TO CHECK THE CAMPAIGN ? (1-10)" 1 "HAIL CAESAR. YOU HAVE BROUGHT PEACE TO THE EMPIRE. ROME SALUTES YOU." 1 "GENERALSHIP "; 1 "GENERAL ABILITY STATUS" 1 "CAMPAIGN IN ";C$(N, 1 "ATTACK ON: ";C$(N,